home *** CD-ROM | disk | FTP | other *** search
/ Web Designer 98 (Professional) / WebDesigner 1.0.iso / cgi2 / download.cgi-s=links&c=txt&f=links.pl < prev    next >
Perl Script  |  1996-06-03  |  7KB  |  180 lines
  1. #!/usr/local/bin/perl
  2. ##############################################################################
  3. # Free For All Link Page        Version 2.2                                  # 
  4. # Copyright 1996 Matt Wright    mattw@worldwidemart.com                      #
  5. # Created 5/14/95               Last Modified 7/17/96                        #
  6. # Scripts Archive at:           http://www.worldwidemart.com/scripts/        #
  7. ##############################################################################
  8. # COPYRIGHT NOTICE                                                           #
  9. # Copyright 1996 Matthew M. Wright  All Rights Reserved.                     #
  10. #                                                                            #
  11. # Free For All Links may be used and modified free of charge by anyone so    #
  12. # long as this copyright notice and the comments above remain intact.  By    #
  13. # using this this code you agree to indemnify Matthew M. Wright from any     #
  14. # liability that might arise from it's use.                                  #  
  15. #                                                                            #
  16. # Selling the code for this program without prior written consent is         #
  17. # expressly forbidden.  In other words, please ask first before you try and  #
  18. # make money off of my program.                                              #
  19. #                                                                            #
  20. # Obtain permission before redistributing this software over the Internet or #
  21. # in any other medium.    In all cases copyright and header must remain intact.#
  22. ##############################################################################
  23. # Define Variables
  24.  
  25. $filename = "/mnt/web/guide/worldwidemart/scripts/demos/links/links.html";
  26. $linksurl = "http://worldwidemart.com/scripts/demos/links/links.html";
  27. $linkscgi = "http://worldwidemart.com/scripts/cgi-bin/demos/links.cgi";
  28. $linkstitle = "Matt's Script Archive: Free For All Demo";
  29. $database = "/mnt/web/guide/worldwidemart/scripts/demos/links/database.txt";
  30.  
  31. # Done
  32. ##############################################################################
  33.  
  34. # Get the input
  35. read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  36.  
  37. # Split the name-value pairs
  38. @pairs = split(/&/, $buffer);
  39.  
  40. foreach $pair (@pairs) {
  41.    ($name, $value) = split(/=/, $pair);
  42.  
  43.    $value =~ tr/+/ /;
  44.    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  45.    $value =~ s/<([^>]|\n)*>//g;
  46.    $value =~ s/<//g;
  47.    $value =~ s/>//g;
  48.    $FORM{$name} = $value;
  49. }
  50.  
  51. if ($FORM{'url'} eq 'http://' || $FORM{'url'} !~ /^(f|ht)tp:\/\/\w+\.\w+/) { 
  52.    &no_url; 
  53. } 
  54. if (!($FORM{'title'})) {
  55.    &no_title;
  56. }
  57.  
  58. # Enter our tags and sections into an associative array
  59.  
  60. %sections = ("busi","Business","comp","Computers","educ","Education",
  61.          "ente","Entertainment","gove","Government",
  62.          "pers","Personal","misc","Miscellaneous");
  63.  
  64. # Suck previous link file into one big string
  65. open(FILE,"$filename");
  66. @lines = <FILE>;
  67. close(FILE);
  68.  
  69. $i=1;
  70. foreach $line (@lines) {    
  71.     if ($line =~ /\<li\>\<a href\=\"([^\"]+)\">([^<]+)<\/a>/) {
  72.         if ($FORM{'url'} eq $1) {
  73.             &repeat_url;
  74.         }
  75.         $i++;
  76.     }
  77. }
  78.  
  79. # Open Link File to Output
  80. open (FILE,">$filename");
  81.  
  82. foreach $line (@lines) { # For every line in our data
  83.  
  84.    if ($line =~ /<!--time-->/) {
  85.       @months = ('January','February','March','April','May','June',
  86.          'July','August','September','October','November','December');
  87.  
  88.       @days = ('Sunday','Monday','Tuesday','Wednesday','Thursday',
  89.            'Friday','Saturday');
  90.  
  91.       ($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
  92.       if ($sec < 10) { $sec = "0$sec"; }
  93.       if ($min < 10) { $min = "0$min"; }
  94.       if ($hour < 10) { $hour = "0$hour"; }
  95.       if ($mday < 10) { $mday = "0$mday"; }
  96.       $date = "on $days[$wday], $months[$mon] $mday, 19$year at $hour:$min:$sec";
  97.       print FILE "<!--time--><b>Last link was added $date</b><hr>\n";
  98.    }
  99.    elsif ($line =~ /<!--number-->/) {
  100.       print FILE "<!--number--><b>There are <i>$i</i> links on this ";
  101.       print FILE "page.</b><br>\n";
  102.    }
  103.    else {
  104.        print FILE $line;
  105.    }
  106.  
  107.    foreach $tag ( keys %sections) { # For every tag 
  108.       if ( ($FORM{'section'} eq $sections{$tag}) && 
  109.          ($line =~ /<!--$tag-->/) ) {
  110.  
  111.          print FILE "<li><a href=\"$FORM{'url'}\">$FORM{'title'}</a>\n"; 
  112.       }
  113.    }
  114. }
  115.  
  116. close (FILE);
  117.  
  118. # Return Link File
  119. print "Location: $linksurl\n\n";
  120.  
  121. if ($database ne '') {
  122.     open (DATABASE,">>$database");
  123.     print DATABASE "$FORM{'url'}\n";
  124.     close(DATABASE);
  125. }
  126.  
  127. sub no_url {
  128.    print "Content-type: text/html\n\n";
  129.    print "<html><head><title>ERROR: No URL</title></head>\n";
  130.    print "<body bgcolor=#FFFFFF text=#000000><center>";
  131.    print "<h1>No URL</h1></center>\n";
  132.    print "You forgot to enter a url you wanted added to the Free for ";  
  133.    print "all link page.  Another possible problem was that your link ";
  134.    print "was invalid.<p>\n";
  135.    print "<form method=POST action=\"$linkscgi\">\n";
  136.    print "<input type=hidden name=\"title\" value=\"$FORM{'title'}\">\n";
  137.    print "<input type=hidden name=\"section\""; 
  138.    print "value=\"$FORM{'section'}\">\n";
  139.    print "URL: <input type=text name=\"url\" size=50><p>\n";
  140.    print "<input type=submit> * <input type=reset>\n";
  141.    print "<hr>\n";
  142.    print "<a href=\"$linksurl\">$linkstitle</a>\n";
  143.    print "</form></body></html>\n";
  144.  
  145.    exit;
  146. }
  147.  
  148. sub no_title {
  149.    print "Content-type: text/html\n\n";
  150.    print "<html><head><title>ERROR: No Title</title></head>\n";
  151.    print "<body bgcolor=#FFFFFF text=#000000><center>";
  152.    print "<h1>No Title</h1></center>\n";
  153.    print "You forgot to enter a title you wanted added to the Free for ";
  154.    print "all link page.  Another possible problem is that you title ";
  155.    print "contained illegal characters.<p>\n";
  156.    print "<form method=POST action=\"$linkscgi\">\n";
  157.    print "<input type=hidden name=\"url\" value=\"$FORM{'url'}\">\n"; 
  158.    print "<input type=hidden name=\"section\"";
  159.    print "value=\"$FORM{'section'}\">\n";
  160.    print "TITLE: <input type=text name=\"title\" size=50><p>\n";
  161.    print "<input type=submit> * <input type=reset>\n";
  162.    print "<hr>\n";
  163.    print "<a href=\"$linksurl\">$linkstitle</a>\n";
  164.    print "</form></body></html>\n";
  165.  
  166.    exit;
  167. }
  168.  
  169. sub repeat_url {
  170.    print "Content-type: text/html\n\n";
  171.    print "<html><head><title>ERROR: Repeat URL</title></head>\n";
  172.    print "<body bgcolor=#FFFFFF text=#000000><center><h1>Repeat URL</h1></center>\n";
  173.    print "Sorry, this URL is already in the Free For All Link Page.\n";
  174.    print "You cannot add this URL to it again.  Sorry.<p>\n";
  175.    print "<a href=\"$linksurl\">$linkstitle</a>";
  176.    print "</body></html>\n";
  177.  
  178.    exit;
  179. }
  180.